00010	(ADD(IF-NEEDED XX(IMPERATIVE-FOR(ON !>X !>Y))
00020	(BITE-ME)))
00030	(FETCHM !"(IMPERATIVE-FOR(ON A B)))
00100	(ADD(IF-NEEDED A-E
00200	(AND . !'CONJUNCTS)
00300	(COND(CONJUNCTS
00400	"AUX"((P1(FETCH(CAR CONJUNCTS)))
00500	      (P2(FETCH !"(AND . @(CDR ,CONJUNCTS))))
00600		COP2)
00700	:LOOP1(TRY-NEXT P1 '(ADIEU))
00800	(CSETQ COP2(COPY P2))
00900	:LOOP2
01000	(TRY-NEXT COP2 '(GO 'LOOP1))
01100	(AU-REVOIR(INSTANCE))
01200	(GO 'LOOP2))
01300	((AU-REVOIR(INSTANCE))) )) )
01400	
01500	(ADD '(GREEN BOX3))
01600	(ADD '(GREEN BOX1))
01700	(ADD '(GREEN BOX4))
01800	(ADD '(ON BOX1 BOX2))
01900	(ADD '(ON BOX4 BOX5))
02000	(CSETQ ZZ(FETCH '(AND(GREEN !>X)(ON !,X !>Y))))